home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / mus / play / DelfMPEG.lha / DelfMPEG / rexx / forward < prev    next >
Text File  |  2002-10-30  |  444b  |  26 lines
  1. /** DelfMPEG ARexx test **/
  2.  
  3. /* usage: rx forward <seconds> */
  4.  
  5. PARSE ARG seconds
  6. ADDRESS DELFMPEG
  7. OPTIONS RESULTS
  8.  
  9. if seconds=='' then do
  10.     say '(note: missing parameter <seconds> - default value 10)'
  11.     seconds=10
  12. end
  13.  
  14. GETSTATUS
  15. if ((result==0) | (result>=10)) then do
  16.     say 'not applicable - player is in STOP mode'
  17.     return 5
  18. end
  19.  
  20. GETPOSITION
  21. newpos=result+seconds
  22. GETDURATION
  23. if newpos>result then newpos=result
  24.  
  25. SETPOSITION newpos
  26.